From: Stefan Monnier Date: Mon, 19 Sep 2011 16:48:36 +0000 (-0400) Subject: org/org.el: Add FIXMEs for odd chunks of code X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2206 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=71f6740ed92a1c803fc414d4b47973a008427f99;p=emacs.git org/org.el: Add FIXMEs for odd chunks of code --- diff --git a/lisp/org/org.el b/lisp/org/org.el index 419ff022cf6..32ca5288d6e 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el @@ -7516,7 +7516,7 @@ the inserted text when done." (org-with-limited-levels (let* ((visp (not (outline-invisible-p))) (txt tree) - (^re_ (concat "\\(\\*+\\)[ \t]*")) + (^re_ (concat "\\(\\*+\\)[ \t]*")) ;FIXME: Why `concat'? (old-level (if (string-match org-outline-regexp-bol txt) (- (match-end 0) (match-beginning 0) 1) -1)) @@ -7534,7 +7534,7 @@ the inserted text when done." (condition-case nil (progn (outline-previous-visible-heading 1) - (if (looking-at re) + (if (looking-at re) ;FIXME: What's `re'? (- (match-end 0) (match-beginning 0) 1) 1)) (error 1)))) @@ -7543,7 +7543,7 @@ the inserted text when done." (progn (or (looking-at org-outline-regexp) (outline-next-visible-heading 1)) - (if (looking-at re) + (if (looking-at re) ;FIXME: What's `re'? (- (match-end 0) (match-beginning 0) 1) 1)) (error 1))))